1 POKE53280,1:POKE53281,1:PRINTCHR$(147);CHR$(142);
2 PRINT"[146][144] ####################
3 [153]" #                  #
4 PRINT" # MATHEMATIK  010  #
5 [153]" #                  #
6 PRINT" # DIESES PROGRAMM  #
7 [153]" # LOESST EINE      #
8 PRINT" # QUADRATISCHE     #
9 [153]" # GLEICHUNG MIT    #
10 PRINT" # GEGEBENEM A,B,C. #
11 [153]" #                  #
12 PRINT" #                  #
13 [153]" # ES WERDEN SOWOHL #
14 PRINT" # REALE ALS AUCH   #
15 [153]" # KOMPLEXE LOE-    #
16 PRINT" # SUNGEN ANGEGEBEN #
17 [153]" #                  #
18 PRINT" #                  #
19 [153]" #                  #
20 PRINT" #  PUBLIC  DOMAIN  #
21 [153]" #                  #
22 PRINT" ####################
23 [146] 198,1:[151]198,0
24 [153]"LOAD"
25 [153]"GEBEN SIE DIE WERTE FUER A, B UND C EIN:
26 INPUTA,B,C
27 D=((B^2)-(4*A*C))/(4*A^2)
28 IFD>=0THEN35
29 X=-B/(2*A)
30 Y=(SQR((4*A*C)-(B^2)))/(2*A)
31 PRINT"KOMPLEXE LOESUNG :
32 [153]"REALTEIL     =";X
33 [153]"IMAGINAERTEIL=";Y
34 [137]44
35 E[178][171]B[173](2[172]A)
36 [139]E[177][178]0[167]39
37 Z[178]E[171][186](D)
38 [137]40
39 Z[178]E[170][186](D)
40 W[178]C[173](Z[172]A)
41 [153]"REELLE LOESUNGEN :
42 PRINT"X 1 =";Z
43 PRINT"X 2 =";W
44 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
45 PRINT"ZUR FORTSETZUNG SPACE DRUECKEN,         ENDE BEI EINGABE EINER 0
46 [161]A$:[139]A$[179][177]"0"[175]A$[179][177]" "[167]46
47 [139]A$[178]" "[167]24
48 [128]